home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / toc.dir / 00201.ls < prev    next >
Encoding:
Text File  |  1997-01-16  |  599 b   |  26 lines
  1. on mouseDown
  2.   puppetSprite(11, 1)
  3.   set the memberNum of sprite 11 to the number of member "W-ARCUS DOWN.PICT"
  4.   updateStage()
  5.   puppetSound("Squishy")
  6. end
  7.  
  8. on mouseUp
  9.   global rootpath
  10.   set the memberNum of sprite 11 to the number of member "W-ARCUS UP.PICT"
  11.   updateStage()
  12.   puppetSprite(11, 1)
  13.   SetReturn()
  14.   delay(60)
  15.   puppetSprite(11, 0)
  16.   sound stop 1
  17.   sound stop 2
  18.   puppetSound(0)
  19.   unloadMember(member "WATER DOWN.PICT", "Squishy")
  20.   if the machineType = 256 then
  21.     play movie rootpath & "DEMOS\ARCUS\ARCUS.Dir"
  22.   else
  23.     play movie rootpath & "DEMOS:ARCUS:ARCUS.Dir"
  24.   end if
  25. end
  26.